Attribute VB_Name = "Module3"
Function EnclosedIn(ByVal ProcessStr As String, ByVal EnclosedChar As String)
' Fxn sees if string is enclosed by another string

EnclosedIn = False ' set default value

If Left(ProcessStr, 1) = EnclosedChar Then
    If Right(ProcessStr, 1) = EnclosedChar Then
        EnclosedIn = True 'Only now set to true
    End If
End If

End Function


Function GetInternalString(ByVal ProcessStr As String, ByVal EnclosedChar As String)
Dim TempStr As String
Dim OutStr As String

TempStr = Right(ProcessStr, Len(ProcessStr) - Len(EnclosedChar))
OutStr = Left(TempStr, Len(TempStr) - Len(EnclosedChar))

GetInternalString = OutStr
End Function


